home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / fish / 001-100 / 001-025 / 013 / shades.bas < prev    next >
BASIC Source File  |  1995-03-17  |  107b  |  5 lines
  1. 10    ask mouse x%,y%,b%
  2. 20    if b%=0 then goto 10
  3. 30    rgb 0, (x%*32)/640, 0, (y%*32)/200
  4. 40    goto 10
  5.